      PARAMETER (NCSP=((MXQN+2)*(MXQN+1)*(3*MXQN**2+6*MXQN+1)*MXQN)/60)
      COMMON /SPHTRM/ CSP(NCSP), ISPADR(MXQN)
